home *** CD-ROM | disk | FTP | other *** search
- <?xml version="1.0" encoding="utf-8" ?>
- <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
- <background>
- <id>2738</id>
- <filler1>0</filler1>
- <cantDelete> <false /> </cantDelete>
- <showPict> <true /> </showPict>
- <dontSearch> <false /> </dontSearch>
- <link rel="stylesheet" type="text/css" href="stylesheet_3127.css" />
- <part>
- <id>1</id>
- <type>field</type>
- <visible> <true /> </visible>
- <dontWrap> <false /> </dontWrap>
- <dontSearch> <false /> </dontSearch>
- <sharedText> <false /> </sharedText>
- <fixedLineHeight> <true /> </fixedLineHeight>
- <autoTab> <false /> </autoTab>
- <lockText> <false /> </lockText>
- <rect>
- <left>0</left>
- <top>0</top>
- <right>512</right>
- <bottom>123</bottom>
- </rect>
- <style>scrolling</style>
- <autoSelect> <false /> </autoSelect>
- <showLines> <true /> </showLines>
- <wideMargins> <false /> </wideMargins>
- <multipleLines> <false /> </multipleLines>
- <reservedFamily> 0 </reservedFamily>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>left</textAlign>
- <font>Monaco</font>
- <textSize>9</textSize>
- <textStyle>plain</textStyle>
- <textHeight>12</textHeight>
- <name>Online Survey</name>
- <script>-- long
- </script>
- </part>
- <part>
- <id>2</id>
- <type>field</type>
- <visible> <true /> </visible>
- <dontWrap> <false /> </dontWrap>
- <dontSearch> <false /> </dontSearch>
- <sharedText> <false /> </sharedText>
- <fixedLineHeight> <true /> </fixedLineHeight>
- <autoTab> <false /> </autoTab>
- <lockText> <false /> </lockText>
- <rect>
- <left>0</left>
- <top>219</top>
- <right>512</right>
- <bottom>342</bottom>
- </rect>
- <style>scrolling</style>
- <autoSelect> <false /> </autoSelect>
- <showLines> <true /> </showLines>
- <wideMargins> <false /> </wideMargins>
- <multipleLines> <false /> </multipleLines>
- <reservedFamily> 0 </reservedFamily>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>left</textAlign>
- <font>Monaco</font>
- <textSize>9</textSize>
- <textStyle>plain</textStyle>
- <textHeight>12</textHeight>
- <name>Results</name>
- <script>-- notThere
- </script>
- </part>
- <name></name>
- <script>on doIt
- global lastSurveyCard, onLine
- put the short name of the target into surveyResult
- put "no" into foundIt
- repeat with X = 1 to the number of lines in bg field "Results"
- if item 1 of line X of bg field "Results" is surveyResult then
- add 1 to item 2 of line x of bg field "Results"
- put "yes" into foundIt
- exit repeat
- end if
- end repeat
- if foundIt is "no" then
- put surveyResult & "," & 1 & return after bg field "Results"
- end if
- put 0 into tally
- repeat with X = 1 to the number of lines in bg field "Results"
- add item 2 of line X of bg field "Results" to tally
- end repeat
- repeat with X = 1 to the number of lines in bg field "Results"
- put item 1 of line x of bg field "Results" into word1
- put item 2 of line x of bg field "Results" into amt1
- put (amt1/tally) * 100 into percentage
- set numberFormat to "#0.##"
- put percentage & "% voted " & word1 & " (" & amt1 & " people)"¬
- into sendMe
- if onLine then
- sendString sendMe
- else
- put sendMe & "..."
- wait until the mouseClick
- end if
- end repeat
- if the id of this card is lastSurveyCard then
- pop card
- else
- go next card
- end if
- end doIt
-
- </script>
- </background>
-